home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n2.d64 / space story (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  15KB  |  447 lines
  1. 1 REM**PERSONALIZED SPACE STORY**
  2. 2 REM**RICK ANDING   ATLANTA**
  3. 3 GOSUB 9000
  4. 4 POKE 53280,6:POKE 53281,6:POKE 646,3
  5. 5 FOR X=1 TO 1000:NEXT
  6. 6 PRINT
  7. 8 INPUT "IS THE STORY CHILD MALE OR FEMALE";SX$
  8. 10 INPUT "FIRST NAME";NA$
  9. 20 INPUT "LAST NAME";NB$
  10. 30 INPUT "STREET NUMBER";S
  11. 40 INPUT "STREET NAME";SN$
  12. 50 INPUT "CITY";CI$
  13. 60 INPUT "STATE";ST$
  14. 70 INPUT "NUMBER OF BROTHERS";B
  15. 75 IF B=0 GOTO 100
  16. 80 FOR X=1 TO B
  17. 85 INPUT"ONE BROTHER'S FIRST NAME";BN$(X)
  18. 90 NEXT X
  19. 100 INPUT "NUMBER OF SISTERS";Z
  20. 105 IF Z=0 GOTO 125
  21. 110 FOR X=1 TO Z
  22. 115 INPUT"ONE SISTER'S FIRST NAME";ZN$(X)
  23. 120 NEXT X
  24. 125 INPUT "NUMBER OF DOG PETS";P
  25. 130 IF P=0 GOTO 170
  26. 140 FOR X=1 TO P
  27. 150 INPUT "ONE PET'S NAME";PN$(X)
  28. 160 NEXT X
  29. 170 INPUT "#1 FRIEND/PLAYMATE'S WHOLE NAME";FA$
  30. 175 INPUT"IS FRIEND #1 MALE OR FEMALE";AG$
  31. 180 INPUT "#2 FRIEND/PLAYMATE'S WHOLE NAME";FB$
  32. 185 INPUT"IS FRIEND #2 MALE OR FEMALE";BG$
  33. 190 INPUT "#3 FRIEND/PLAYMATE'S WHOLE NAME";FC$
  34. 195 INPUT"IS FRIEND #3 MALE OR FEMALE";CG$
  35. 198 INPUT "STORY CHILD'S MOST LOVED SPORT";SP$
  36. 200 INPUT "NAME OF STORY CHILD'S SCHOOL";SC$
  37. 205 FOR X=1 TO 2000:NEXT X:PRINT"[147]"
  38. 215 PRINT
  39. 220 PRINT "CHILD'S GENDER  ";SX$
  40. 225 PRINT "FIRST NAME      ";NA$
  41. 230 PRINT "LAST NAME       ";NB$
  42. 235 PRINT "STREET NUMBER  ";S
  43. 240 PRINT "STREET NAME     ";SN$
  44. 245 PRINT "CITY            ";CI$
  45. 250 PRINT "STATE           ";ST$
  46. 260 IF B=0 GOTO 280
  47. 265 FOR X=1 TO B
  48. 270 PRINT "BROTHER'S NAME  ";BN$(X)
  49. 275 NEXT X
  50. 280 IF Z=0 GOTO 300
  51. 285 FOR X=1 TO Z
  52. 290 PRINT "SISTER'S NAME   ";ZN$(X)
  53. 295 NEXT X
  54. 300 IF P=0 GOTO 340
  55. 310 FOR X=1 TO P
  56. 320 PRINT "PET'S NAME      ";PN$(X)
  57. 330 NEXT X
  58. 340 PRINT "#1 FRIEND'S NAME   ";FA$
  59. 345 PRINT "          GENDER   ";AG$
  60. 350 PRINT "#2 FRIEND'S NAME   ";FB$
  61. 355 PRINT "          GENDER   ";BG$
  62. 360 PRINT "#3 FRIEND'S NAME   ";FC$
  63. 365 PRINT "          GENDER   ";CG$
  64. 370 PRINT "FAVORITE SPORT     ";SP$
  65. 375 PRINT "SCHOOL ATTENDED    ";SC$
  66. 378 PRINT:INPUT"IS INFORMATION CORRECT";A$
  67. 380 IF A$="NO" OR A$="N" GOTO 5
  68. 390 FOR X=1 TO 1000:NEXT:PRINT
  69. 400 IF SX$="MALE" OR SX$="M" THEN G=1
  70. 410 IF SX$="FEMALE" OR SX$="F" THEN G=2
  71. 412 RF$(1)="SPACEBOY"
  72. 414 RF$(2)="SPACEGIRL"
  73. 416 HE$(1)="HE"
  74. 418 HE$(2)="SHE"
  75. 420 HM$(1)="HIM"
  76. 422 HM$(2)="HER"
  77. 424 HS$(1)="HIS"
  78. 426 HS$(2)="HER"
  79. 430 IF AG$="MALE" OR SX$="M" THEN H=1
  80. 432 IF AG$="FEMALE" OR SX$="F" THEN H=2
  81. 434 IF BG$="MALE" OR SX$="M" THEN I=1
  82. 436 IF BG$="FEMALE" OR SX$="F" THEN I=2
  83. 438 IF CG$="MALE" OR SX$="M" THEN J=1
  84. 440 IF CG$="FEMALE" OR SX$="F" THEN J=2
  85. 442 AA$(1)=" SIR "
  86. 444 AA$(2)=" LADY "
  87. 482 PRINT "AT THIS POINT MAKE SURE YOUR PRINTER IS TURNED ON ";
  88. 484 PRINT " AND PROPERLY HOOKED UP TO THECOMPUTER
  89. 486 [129] X[178]1 [164] 4000:[130]
  90. 488 [153]:[153]:[153]:[153]:[153]
  91. 490 [153]"PRESS THE SPACE BAR TO BEGIN PRINTING   THE STORY"
  92. 492 [161] RN$
  93. 494 [139] RN$[178]"" [167] [137] 492
  94. 496 [139] RN$[179][177][199](32) [167] [137] 492
  95. 498 [159]3,4
  96. 500 [143]**** STORY LINE****
  97. 501 [152]3,"                                A SPACE STORY!"
  98. 502 [152]3,
  99. 503 [152]3,
  100. 505 [152]3,"DID YOU HEAR ABOUT THE FLYING SAUCER THAT LANDED IN ";CI$;
  101. 510 [152]3," LAST WEEK....?"
  102. 512 [152]3,"WELL, IT LANDED RIGHT ON ";SN$;"!!!"
  103. 515 [152]3,
  104. 520 [152]3,NA$;" ";NB$;" WAS STANDING IN ";HS$(G);" FRONT YARD ON ";SN$;
  105. 525 [139] B[170]Z[178]0 [137] 605
  106. 528 [139] B[178]0 [137] 540
  107. 530 [139] B[170]Z[177]1 [137] 555
  108. 535 [152]3," WITH ";HS$(G);" BROTHER ";BN$(1);
  109. 540 [139] Z[178]0 [137] 605
  110. 543 [139] B[177]0 [175] Z[177]0 [137] 555
  111. 544 [139] Z[177]1 [137] 553
  112. 545 [152]3," WITH ";HS$(G);" SISTER ";ZN$(1);
  113. 552 [139] Z[178]1 [137] 605
  114. 553 [152]3," WITH "HS$(G);" SISTERS ";
  115. 554 [137] 590
  116. 555 [139] B[177]0 [175] Z[178]O [137] 558
  117. 556 [152]3," WITH ";HS$(G);" BROTHERS AND SISTERS ";
  118. 557 [137] 560
  119. 558 [152]3," WITH HIS BROTHERS ";
  120. 560 [129] X[178]1 [164] B[171]1
  121. 562 [139] B[178]1 [137] 582
  122. 565 [152]3,", "BN$(X);
  123. 570 [130] X
  124. 580 [152]3,", AND ";BN$(B);
  125. 581 [137] 585
  126. 582 [152]3,BN$(1);
  127. 585 [139] Z[178]0 [137] 605
  128. 590 [129] X[178]1 [164] Z[171]1
  129. 592 [139] Z[178]1 [137] 603
  130. 595 [152]3,", ";ZN$(X);
  131. 600 [130] X
  132. 601 [139] X[178]0 [167] [137] 605
  133. 603 [152]3,", AND ";ZN$(Z);
  134. 605 [152]3,", WAITING FOR ";HS$(G);" FRIENDS ";FA$;", ";FB$;", AND ";FC$;
  135. 607 [152]3," TO COME OVER."
  136. 610 [152]3,"THEY WERE ALL GOING TO THE SCHOOLYARD AT ";SC$;" TO PLAY ";
  137. 615 [152]3,SP$;", WHICH WAS ";NA$;"'S FAVORITE GAME."
  138. 620 [152]3,
  139. 625 [152]3,"WELL, IT WASN'T LONG AFTER EVERYONE FINALLY ARRIVED AT "NA$;"'S ";
  140. 630 [152]3,"HOUSE, WHEN THEY HEARD THE STRANGEST HUMMING SOUND COMMING ";
  141. 635 [152]3,"FROM OVER THEIR HEADS..";
  142. 640 [152]3,"LOOK!, SAID ";FA$;", UP THERE, OVER THE HOUSE!"
  143. 645 [152]3,
  144. 650 [152]3,NA$;" ";NB$;" LOOKED UP AND SAW THE STRANGEST SIGHT!  RIGHT OVER ";
  145. 655 [152]3,HS$(G);" HEAD WAS A BIG SILVER FLYING SAUCER WITH BRIGHT BLINKING ";
  146. 660 [152]3,"LIGHTS!  IT WAS FLYING IN A CIRCLE, AROUND AND AROUND ";HS$(G);
  147. 665 [152]3," HOUSE ON ";SN$;"!"
  148. 670 [141] 5000
  149. 675 [152]3,"THE SPACESHIP STARTING MAKING A BEEPING SOUND, THEN IT STOPPED ";
  150. 680 [152]3,"FLYING AROUND ";NA$;"'S HOUSE, AND BEGAN TO GET LOWER AND LOWER ";
  151. 685 [152]3,"TO THE GROUND.  LOOK!, SAID ";FB$;", IT'S GOING TO LAND IN THE ";
  152. 690 [152]3,NB$;"'S FRONT YARD!!"
  153. 692 [152]3,
  154. 695 [139] P[177]0 [137] 705
  155. 700 [152]3,"THE NEIGHBORHOOD DOGS WERE BARKING WILDLY ";
  156. 703 [137] 725
  157. 705 [139] P[177]1 [137] 720
  158. 710 [152]3,PN$(1);" WAS BARKING WILDLY ";
  159. 715 [137] 725
  160. 720 [152]3,PN$(1);" AND ";PN$(2);" WERE BARKING WILDLY ";
  161. 725 [152]3,"AS THE BIG SILVER SPACE SHIP SET DOWN SOFTLY ON THE GRASS.  ";FC$;
  162. 730 [152]3," SAID,  'SHOULD WE RUN?"
  163. 731 [152]3,
  164. 732 [152]3,"'NO,  SAID ";NA$;", LET'S WAIT AND ";
  165. 735 [152]3,"SEE WHAT HAPPENS NEXT!"
  166. 740 [152]3,
  167. 745 [152]3,"THE DOOR OF THE FLYING SAUCER OPENED, AND A SET OF STEPS CAME ";
  168. 750 [152]3,"DOWN TO THE GROUND.  OUT OF THE SHIP STEPPED THE ODDEST LOOKING ";
  169. 755 [152]3,"LITTLE MAN!  HE WAS SHORT AND FAT, WITH BLUE SKIN, AND HAD TWO ";
  170. 760 [152]3,"ANTENNAS STICKING OUT OF HIS HEAD!  "
  171. 765 [141] 6000
  172. 770 [152]3,"THE SPACEMAN LOOKED SO JOLLY THAT NO ONE WAS REALLY AFRAID OF ";
  173. 775 [152]3,"HIM.  HE WALKED DOWN THE STEPS TO THE GROUND, STOPPED, AND SAID:"
  174. 780 [152]3,"'HI!  MY NAME IS GORFU.  I'M FROM THE PLANET LOB-TRON.  WHICH ";
  175. 785 [152]3,"ONE OF YOU IS ";NA$;" ";NB$;"?"
  176. 787 [152]3,
  177. 790 [152]3,NA$;" SAID TIMIDLY, 'I AM....WHY?
  178. 792 PRINT#3,
  179. 795 PRINT#3,"THE SPACEMAN, GORFU SAID  'I HAVE BEEN SENT FROM MY PLANET TO ";
  180. 800 PRINT#3,"LEARN ALL ABOUT THE SPORT OF ";SP$;".  I UNDERSTAND YOU ARE AN ";
  181. 805 PRINT#3,"EXPERT AT PLAYING ";SP$;".  ";
  182. 810 PRINT#3,"MY PLANET HAS SENT ME TO FIND YOU AND SEE IF YOU WILL TEACH ME TO";
  183. 815 PRINT#3," PLAY THE GAME, SO I CAN GO HOME AND TEACH EVERYONE ELSE TO PLAY."
  184. 820 PRINT#3,
  185. 825 PRINT#3,NA$;" THOUGHT ABOUT IT A MINUTE AND SAID,  'I'LL MAKE A DEAL WITH";
  186. 830 PRINT#3," YOU... I'LL TEACH YOU TO PLAY ";SP$;", IF I CAN HAVE A RIDE IN ";
  187. 835 PRINT#3,"YOUR FLYING SAUCER."
  188. 840 PRINT#3,"GORFU REPLIED,  'WELL, I HAVE PLENTY OF FUEL, AND ENOUGH ROOM ";
  189. 845 PRINT#3,"FOR ONE SMALL EARTHLING, SO I GUESS IT WILL BE A FAIR TRADE!"
  190. 848 PRINT#3,
  191. 850 PRINT#3,NA$;" ";NB$;" CLIMBED THE STAIRS INTO THE SPACESHIP, AND WAS VERY ";
  192. 855 PRINT#3,"SUPRISED TO SEE ALL THE MULTICOLORED LIGHTS AND DIALS INSIDE THE";
  193. 860 PRINT#3," COCKPIT OF THE SPACESHIP!  ";HE$(G);" SAT DOWN IN A SMALL CHAIR ";
  194. 865 PRINT#3,"BESIDE THE PILOT'S SEAT, AND GORFU SAT BESIDE ";HM$(G);".  THE ";
  195. 870 PRINT#3,"SPACEMAN TURNED A FEW OF THE KNOBS AND THE DOOR SHUT.  THEN THE ";
  196. 875 PRINT#3,"SHIP BEGAN TO HUM AND VIBRATE! "
  197. 878 PRINT#3,
  198. 880 PRINT#3,NA$;" WAS EXCIDED!  HE LOOKED OUT THE WINDOW AS THE BIG SILVER ";
  199. 885 PRINT#3,"SHIP SHUTTERED, THEN LIFTED OFF FROM THE ";
  200. 890 PRINT#3,"GROUND! "
  201. 895 GOSUB 7000
  202. 900 PRINT#3,"GORFU GAVE ";NA$;" THE RIDE OF ";HS$(G);" LIFE!"
  203. 901 PRINT#3,
  204. 902 PRINT#3,"THE SPACESHIP ";
  205. 905 PRINT#3,"WENT STRAIGHT UP, THEN DOVE, THEN SWAYED FROM SIDE TO SIDE! IT ";
  206. 910 PRINT#3,"WAS A GOOD THING ";NA$;" HAD PUT ON ";HS$(G);" SEATBELT OR ";
  207. 915 PRINT#3,HE$(G);" WOULD HAVE LANDED ON ";HS$(G);" HEAD WHEN THE SPACESHIP ";
  208. 920 PRINT#3,"TURNED OVER AND STARTED FLYING UPSIDE DOWN!"
  209. 925 PRINT#3,
  210. 930 PRINT#3,"'THIS IS THE MOST EXCITING THING THAT HAS HAPPENED TO ME IN MY ";
  211. 935 PRINT#3,"WHOLE LIFE!, SAID ";NA$;
  212. 940 PRINT#3,"   'I CANT WAIT TO TELL EVERYONE WAITING FOR ME BACK ON ";SN$;
  213. 945 PRINT#3,", ABOUT THIS!
  214. 950 [152]3,
  215. 955 [152]3,"GORFU SAID,  'YOU CAN ALSO TELL THEM THAT YOU ARE NOW THE EARTHS";
  216. 960 [152]3," FIRST ";RF$(G);"!"
  217. 962 [152]3,
  218. 965 [152]3,"THATS RIGHT, SAID ";NA$;", I GUESS I AM!"
  219. 967 [152]3,
  220. 970 [152]3,"THE SPACEMAN WAS NOW FLYING OVER DOWNTOWN ";CI$;", AND AS "NA$;
  221. 975 [152]3," LOOKED OUT THE WINDOW, ";HE$(G);" COULD SEE ALL THE CARS RIDING";
  222. 980 [152]3," DOWN THE STREETS IN DOWNTOWN ";CI$;"."
  223. 982 [152]3,
  224. 985 [152]3,"WON'T THE PEOPLE BELOW SEE THE FLYING SAUCER UP HERE AND GET ";
  225. 990 [152]3,"SCARED?,  ASKED ";NA$
  226. 992 [152]3,
  227. 995 [152]3,"NO, SAID GORFU,  I'VE MADE THE SHIP INVISIBLE, SO THEY WON'T ";
  228. 1000 [152]3,"SEE US UP HERE!
  229. 1005 GOSUB 8000
  230. 1010 PRINT#3,"GORFU SAID, 'WELL, I THINK WE SHOULD BE HEADING BACK TO ";SN$;
  231. 1015 PRINT#3," NOW,  YOUR FRIENDS WILL BE GETTING WORRIED, AND YOU STILL NEED";
  232. 1020 PRINT#3," TO TEACH ME HOW TO PLAY ";SP$;"!"
  233. 1022 PRINT#3,
  234. 1025 PRINT#3,"I GUESS YOU'RE RIGHT, SAID ";NA$;", BUT I SURE HAVE ENJOYED ";
  235. 1030 PRINT#3,"THIS RIDE!  "
  236. 1032 PRINT#3,
  237. 1035 PRINT#3,"WHEN THEY GOT BACK TO ";SN$;", ";NA$;" HAD SO MUCH TO TELL ALL ";
  238. 1040 PRINT#3,HS$(G);" FRIENDS AND FAMILY ABOUT THE ADVENTURE ";HE$(G);" HAD ";
  239. 1045 PRINT#3,"BEEN ON TODAY, BUT FIRST, ";HE$(G);" NEEDED TO KEEP ";HS$(G);
  240. 1050 PRINT#3," PROMISE TO GORFU, AND TEACH HIM HOW TO PLAY ";SP$;"."
  241. 1052 PRINT#3,
  242. 1055 PRINT#3,"THE WHOLE GROUP WENT TO THE PLAYGROUND AT ";SC$;" AND SPENT THE";
  243. 1060 PRINT#3," NEXT 4 HOURS TEACHING GORFU HOW TO PLAY ";SP$
  244. 1062 PRINT#3,
  245. 1065 PRINT#3,"GORFU NEVER WAS VERY GOOD AT THE GAME, BUT HE SAID HE WOULD GET";
  246. 1070 PRINT#3," BETTER WHEN HE GOT HOME AND PRACTICED WITH THE OTHER PEOPLE OF";
  247. 1075 PRINT#3," LOB-TRON.
  248. 1078 [152]3,
  249. 1080 [152]3,"HE THANKED ";NA$;", AND EVERY ONE ELSE WHO HAD HELPED HIM LEARN";
  250. 1085 [152]3," HOW TO PLAY ";SP$;", AND SAID GOOD-BYE TO HIS NEW FRIENDS ON ";
  251. 1090 [152]3,"EARTH.  THEN HE CLIMBED BACK IN HIS FLYING SAUCER, CLOSED THE ";
  252. 1095 [152]3,"DOOR, AND TOOK OFF AGAIN, BACK TO LOB-TRON."
  253. 1100 [152]3,
  254. 1105 [152]3,"I SURE WILL MISS HIM, SAID ";NA$"."
  255. 1108 [152]3,
  256. 1110 [152]3,"ME TOO, SAID ";FA$;", 'WE ALL WILL,  BUT TELL US ALL ABOUT YOUR";
  257. 1115 [152]3," RIDE IN A FLYING SAUCER, ";NA$;"!"
  258. 1120 [152]3,
  259. 1125 [152]3,NA$;" ";NB$;" SPENT THE REST OF THE EVENING TELLING HIS FAMILY ";
  260. 1130 [152]3,"AND FRIENDS ABOUT THE BIGGEST THRILL OF ";HS$(G);" LIFETIME!"
  261. 1132 [152]3,
  262. 1135 [152]3,"A RIDE IN A REAL FLYING SAUCER!!!!!
  263. 1140 PRINT#3,
  264. 1145 PRINT#3,
  265. 1147 PRINT#3,
  266. 1150 PRINT#3,"                                  THE END!"
  267. 1160 END
  268. 5000 PRINT#3,
  269. 5010 PRINT#3,
  270. 5015 PRINT#3,"                           [213][178][201]                 "
  271. 5020 PRINT#3,"                        [206][184][184][184][184][184][184][184][205] "
  272. 5025 PRINT#3,"                        [205][175][175][175][175][175][175][175][206] "
  273. 5030 PRINT#3,"                           [206][194][205]    "
  274. 5035 PRINT#3,
  275. 5037 PRINT#3,
  276. 5040 PRINT#3,
  277. 5043 PRINT#3,
  278. 5045 PRINT#3,
  279. 5047 PRINT#3,
  280. 5050 PRINT#3,
  281. 5055 PRINT#3,
  282. 5060 PRINT#3,"                                            [206][205]     "
  283. 5065 PRINT#3,"                                           [206]  [205]     "
  284. 5070 PRINT#3,"                                          [206] [176][174] [205]    "
  285. 5075 PRINT#3,"                                         [206]  [173][189]  [205]   "
  286. 5080 PRINT#3,"                                        [206]        [205]  "
  287. 5085 PRINT#3,"                                       [206][180]        [170][205] "
  288. 5090 PRINT#3,"                                        [180] [176][174]  [176][174] [170]  "
  289. 5095 PRINT#3,"                                        [180] [171][179]  [171][179] [170]  "
  290. 5100 PRINT#3,"                                        [180] [173][189]  [173][189] [170]  "
  291. 5110 PRINT#3,"                                        [180]        [170]  "
  292. 5115 PRINT#3,"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  293. 5120 PRINT#3,
  294. 5125 PRINT#3,
  295. 5130 RETURN
  296. 6000 PRINT#3,
  297. 6005 PRINT#3,
  298. 6025 PRINT#3,"                              [209]            [209]     "
  299. 6030 PRINT#3,"                               [205]          [206]      "
  300. 6035 PRINT#3,"                                [205]        [206]       "
  301. 6040 PRINT#3,"                                 [205]      [206]        "
  302. 6045 PRINT#3,"                                  [205]    [206]         "
  303. 6055 PRINT#3,"                                  [206][183][183][183][183][205]         "
  304. 6060 PRINT#3,"                                 [206]      [205]        "
  305. 6065 PRINT#3,"                                [206]        [205]       "
  306. 6070 PRINT#3,"                               [206][183][183][183][205]  [206][183][183][183][205]      "
  307. 6075 PRINT#3,"                              [206]     [205][206]     [205]     "
  308. 6080 PRINT#3,"                           [206][205][206]   [206][183][205]  [206][183][205]   [205][206][205]  "
  309. 6085 PRINT#3,"                           [180][178][180]   [180][215] [180][170] [215][170]   [170][178][170]  "
  310. 6090 PRINT#3,"                           [180][194][165]   [205][175][206][180][170][205][175][206]   [170][194][170]  "
  311. 6095 PRINT#3,"                           [205][206][165]      [180][170]      [167][205][206]  "
  312. 6100 PRINT#3,"                            [206]      [206]  [205]      [205]   "
  313. 6105 PRINT#3,"                           [206]       [205][175][175][206]       [205]  "
  314. 6115 PRINT#3,"                           [180] [206] [213][196][201]      [213][196][201] [205]  [180] "
  315. 6120 PRINT#3,"                           [180]     [205][185][185][185][185][185][185][206]      [180] "
  316. 6125 PRINT#3,"                           [180]      [205][175][175][175][175][206]       [180] "
  317. 6130 PRINT#3,"                           [205]                  [206]  "
  318. 6135 PRINT#3,"                            [205]                [206]   "
  319. 6140 PRINT#3,"                             [205][185][185][185][185][185][185][185][185][185][185][185][185][185][185][206]    "
  320. 6145 PRINT#3
  321. 6150 PRINT#3,
  322. 6155 RETURN
  323. 7000 PRINT#3,
  324. 7002 PRINT#3,
  325. 7004 PRINT#3,
  326. 7005 PRINT#3,
  327. 7007 PRINT#3,
  328. 7010 PRINT#3,"                             [206][183][183][183][183][183][205]         "
  329. 7015 PRINT#3,"                            [206]     [214] [205]        "
  330. 7020 PRINT#3,"                           [206] [164][164]  [206] [205] [205]       "
  331. 7025 PRINT#3,"                          [206] (..)([209][209] D  [205]      "
  332. 7030 PRINT#3,"                     [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] "
  333. 7035 PRINT#3,"                    [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]"
  334. 7040 PRINT#3,"                    [205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]"
  335. 7045 PRINT#3,"                     [205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206] "
  336. 7050 PRINT#3,"                              [206] [194][160][205]          "
  337. 7055 PRINT#3,"                             [206]  [194]  [205]         "
  338. 7060 PRINT#3,"                            [206]   [194]   [205]        "
  339. 7070 PRINT#3,
  340. 7075 PRINT#3,
  341. 7080 PRINT#3,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  342. 7085 PRINT#3,
  343. 7090 PRINT#3,
  344. 7095 RETURN
  345. 8000 PRINT#3,
  346. 8010 PRINT#3,
  347. 8020 PRINT#3,
  348. 8030 PRINT#3,"                             [170]       [180] "
  349. 8035 PRINT#3,"                             [170]   [194]   [180] "
  350. 8040 PRINT#3,"                             [170] [213][201]    [180] "
  351. 8045 PRINT#3,"                 [160]           [170] [171][179][194]   [180] "
  352. 8055 PRINT#3,"                             [170] [171][179]    [180] "
  353. 8060 PRINT#3,"                             [170] [202][203][194]   [180] "
  354. 8065 PRINT#3,"                             [170]       [180] "
  355. 8070 PRINT#3,"                        [160]    [170]   [194]   [180] "
  356. 8075 PRINT#3,"               [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] "
  357. 8077 PRINT#3,"                 [213][178][195][178][201]           [194]     [213][178][178][201]           "
  358. 8078 PRINT#3,"                 [202][177][195][177][203]                 [202][177][177][203]           "
  359. 8080 PRINT#3,"                [195] [195] [195] [195] [195] [195] [195] [195]  [215]  [195] [195] [195] [195] [195] [195] [195] [195] [195] "
  360. 8082 PRINT#3,"                       [213][178][195][178][201]                 [213][178][195][178][201]           "
  361. 8083 PRINT#3,"                       [202][177][195][177][203]                 [202][177][195][177][203]    "
  362. 8085 PRINT#3,"               [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]   [194]   [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175] "
  363. 8090 PRINT#3,"                             [170]       [180]                "
  364. 8095 PRINT#3,"                             [170]   [194]   [180]                "
  365. 8100 PRINT#3,"                             [170][213][195][201]    [180]                "
  366. 8105 PRINT#3,"                             [170][171][195][179][194]   [180]                "
  367. 8115 PRINT#3,"                             [170][194][160][194]    [180]                "
  368. 8120 PRINT#3,"                             [170][171][195][179][194]   [180]                "
  369. 8125 PRINT#3,"                             [170][202][195][203]    [180]                "
  370. 8130 PRINT#3,"                             [170]   [194]   [180] "
  371. 8135 PRINT#3,"                             [170]    [213][195][201][180] "
  372. 8140 PRINT#3,"                             [170]   [194][171][195][179][180] "
  373. 8145 PRINT#3,
  374. 8150 PRINT#3,
  375. 8155 PRINT#3,
  376. 8160 RETURN
  377. 9000 POKE 646,6
  378. 9001 POKE 53280,7:POKE 53281,7:PRINT"[147]"
  379. 9002 FOR X=1 TO 1000:NEXT
  380. 9003 REM*                 LINE RIGHT *
  381. 9005 FOR X=1 TO 39
  382. 9010 PRINT"[191]";
  383. 9015 FOR Y=1 TO 10:NEXT Y
  384. 9020 NEXT
  385. 9028 REM*                  LINE DOWN *
  386. 9030 FOR X=1 TO 22
  387. 9040 PRINT TAB(40)"[157][157][191]"
  388. 9050 FOR Y=1 TO 10:NEXT Y
  389. 9060 NEXT X
  390. 9068 REM*                  LINE LEFT *
  391. 9070 FOR X=1 TO 39
  392. 9080 PRINT"[157][157][191]";
  393. 9090 FOR Y=1 TO 10:NEXT Y
  394. 9095 NEXT X
  395. 9096 PRINT"[157][191][157]";
  396. 9098 REM*                    LINE UP *
  397. 9100 FOR X=1 TO 21
  398. 9110 PRINT "[145][191][145]"
  399. 9120 FOR Y=1 TO 10: NEXT Y
  400. 9130 NEXT X
  401. 9140 FOR D =1 TO 350:NEXT
  402. 9160 PRINT TAB(204)"[191]";
  403. 9170 FOR X=1 TO 28
  404. 9175 PRINT "[191]";
  405. 9180 FOR Y=1 TO 10:NEXT Y
  406. 9190 NEXT X
  407. 9195 PRINT"[191]"
  408. 9200 PRINT TAB(33)"[191]"
  409. 9210 PRINT TAB(33)"[191]"
  410. 9220 PRINT TAB(33)"[191]"
  411. 9230 PRINT TAB(33)"[191]";
  412. 9240 FOR X=1 TO 30
  413. 9250 PRINT"[157][191][157]";
  414. 9255 FOR Y=1 TO 10: NEXT Y
  415. 9260 NEXT X
  416. 9270 FOR X=1 TO 3
  417. 9280 PRINT "[145][191][157]";
  418. 9290 FOR Y=1 TO 10:NEXT
  419. 9300 NEXT X
  420. 9305 FOR X=1 TO 350:NEXT
  421. 9310 PRINT TAB(46)" ANDING'S NOODLE PRESENTS"
  422. 9315 FOR X=1 TO 1000:NEXT
  423. 9320 PRINT TAB(252)" "
  424. 9325 DATA "A"," ","S","P","A","C","E"," ","S","T","O","R","Y"
  425. 9330 PRINT TAB(12)"*[157]";
  426. 9335 FOR J=1 TO 13
  427. 9340 FOR X=1 TO 12
  428. 9350 PRINT" *[157]";
  429. 9360 FOR Y=1 TO 4:NEXT Y
  430. 9370 NEXT X
  431. 9375 PRINT"[157]* [157]";
  432. 9380 FOR X=1 TO 11
  433. 9390 PRINT"[157][157]* [157]";
  434. 9400 FOR Y=1 TO 5:NEXT Y
  435. 9410 NEXT X
  436. 9415 READ A$
  437. 9416 PRINT"[157][145]";A$;:PRINT"";
  438. 9420 NEXT J
  439. 9425 FOR Y=1 TO 200:NEXT
  440. 9430 PRINT TAB(58)"*":FOR Y=1 TO 200:NEXT
  441. 9440 PRINT TAB(18)"*":FOR Y=1 TO 200:NEXT
  442. 9450 PRINT TAB(18)"*":FOR Y=1 TO 200:NEXT
  443. 9460 PRINT TAB(18)"*":FOR Y=1 TO 200:NEXT
  444. 9470 PRINT TAB(18)"*":FOR Y=1 TO 2400:NEXT
  445. 9486 PRINT"[147]"
  446. 9490 RETURN
  447.